library(tidyverse)
library(here)
library(plotly)
theme_set(theme_minimal()) 

A seguinte análise busca, ainda, entender um pouco mais sobre o uso da Cota para o Exercício da Atividade Parlamentar (CEAP). Uma melhor explicação dos dados, assim como a primeira parte desta análise pode ser encontrada aqui.

Dados

Inicialmente, vamos importar os dados.

gastos <- read_csv(here("data/dadosCEAP.csv"),
                   progress = FALSE)
gastos %>% names()
 [1] "nomeParlamentar" "idCadastro"      "sgUF"            "sgPartido"      
 [5] "tipoDespesa"     "especDespesa"    "fornecedor"      "CNPJCPF"        
 [9] "tipoDocumento"   "dataEmissao"     "valorDocumento"  "valorGlosa"     
[13] "valorLíquido"   

Vamos adicionar, agora, a região de cada estado, para melhorar as futuras visualizações dos dados.

gastos <- gastos %>% 
  mutate(regiao = case_when(
    sgUF %in% c("AC", "AP", "AM", "PA", "RO", "RR", "TO") ~ "Norte",
    sgUF %in% c("AL", "BA", "CE", "MA", "PB", "PE", "PI", "RN", "SE") ~ "Nordeste",
    sgUF %in% c("DF", "GO", "MT", "MS") ~ "Centro-Oeste",
    sgUF %in% c("ES", "MG", "RJ", "SP") ~ "Sudeste",
    sgUF %in% c("PR", "RS", "SC") ~ "Sul"
  )) # adiciona uma coluna na base de dados associando uma região a cada estado.

Perguntas

Quais estados mais utilizam a CEAP com despesas com combustíveis?

O estado de Minas Gerais é o estado onde os deputados mais utilizam a CEAP para despesas com combustíveis. Observando o gráfico, os estados que mais gastam são estados muito populosos. Sabendo que esses estados também possuem muitos deputados, existe alguma associação entre o número de deputados e a utilização da CEAP? Podemos verificar se essa associação existe através de um gráfico de dispersão.

Podemos observar, pelo gráfico, que a medida que a quantidade de deputados aumenta, a quantidade utilizada da CEAP também aumenta. Logo, podemos dizer que há associação entre essas variáveis. Uma forma de medir essa associaçao é utilizando uma medida chamada de correlação linear. A correlação linear mede a relação linear entre elas e indica a força e a direção desse relacionamento. Essa medida é um valor entre -1 e 1 e é classificada da seguinte forma:

  • A associação é dita fraca se o módulo de seu valor aproxima-se de 0, e forte quando aproxima-se de 1.
  • Se o valor da correlação é negativo, os valores de uma variável diminuem quando os da outra aumentam, e, se for positivo, aumentam quando os valores da outra variável também aumentam.
cor(x = deputados_gastos$quantidade_deputados,
    y = deputados_gastos$total,
    method = "pearson")
[1] 0.9079092

Como o valor dessa correlação é 0.90, essa associação é forte e positiva. Então, quanto maior a quantidade de deputados em um estado, maior a utilização da CEAP.

Quais candidatos são responsáveis pela maior parte dos gastos de seu estado?

O deputado Marcos Rotta do estado do Amazonas, que possui 11 deputados, gasta sozinho quase 30% de todo o total utilizado da CEAP em seu estado. É importante observar aqui que os estados dos deputados com maiores porcentagens de gastos possuem menos deputados dos que os de porcentagem baixa.

LS0tCnRpdGxlOiAiQWluZGEgc29icmUgYSB1dGlsaXphw6fDo28gZGEgQ0VBUC4iCmF1dGhvcjogIlZhbHRlciBMdWNlbmEiCmRhdGU6ICI1IGRlIHNldGVtYnJvIGRlIDIwMTgiCm91dHB1dDogCiAgaHRtbF9kb2N1bWVudDoKICAgIGRmX3ByaW50OiBwYWdlZAogICAgdG9jOiB5ZXMKICAgIHRvY19mbG9hdDogeWVzCiAgaHRtbF9ub3RlYm9vazoKICAgIHRvYzogeWVzCiAgICB0b2NfZmxvYXQ6IHllcwotLS0KCmBgYHtyIHNldHVwLCBpbmNsdWRlPUZBTFNFfQprbml0cjo6b3B0c19jaHVuayRzZXQoZWNobyA9IFRSVUUpCmBgYAoKYGBge3IsIG1lc3NhZ2U9RkFMU0UsIHdhcm5pbmc9RkFMU0V9CmxpYnJhcnkodGlkeXZlcnNlKQpsaWJyYXJ5KGhlcmUpCmxpYnJhcnkocGxvdGx5KQp0aGVtZV9zZXQodGhlbWVfbWluaW1hbCgpKSAKYGBgCgpBIHNlZ3VpbnRlIGFuw6FsaXNlIGJ1c2NhLCBhaW5kYSwgZW50ZW5kZXIgdW0gcG91Y28gbWFpcyBzb2JyZSBvIHVzbyBkYSBbQ290YSBwYXJhIG8gRXhlcmPDrWNpbyBkYSBBdGl2aWRhZGUgUGFybGFtZW50YXIgKENFQVApXShodHRwOi8vd3d3Mi5jYW1hcmEubGVnLmJyL3RyYW5zcGFyZW5jaWEvYWNlc3NvLWEtaW5mb3JtYWNhby9jb3B5X29mX3Blcmd1bnRhcy1mcmVxdWVudGVzL2NvdGEtcGFyYS1vLWV4ZXJjaWNpby1kYS1hdGl2aWRhZGUtcGFybGFtZW50YXIpLiBVbWEgbWVsaG9yIGV4cGxpY2HDp8OjbyBkb3MgZGFkb3MsIGFzc2ltIGNvbW8gYSBwcmltZWlyYSBwYXJ0ZSBkZXN0YSBhbsOhbGlzZSBwb2RlIHNlciBlbmNvbnRyYWRhIFthcXVpXShodHRwczovL3JwdWJzLmNvbS92YWx0ZXJsdWNlbmEvNDE2NTEzKS4gCgojIERhZG9zCgpJbmljaWFsbWVudGUsIHZhbW9zIGltcG9ydGFyIG9zIGRhZG9zLgoKYGBge3IsIG1lc3NhZ2U9RkFMU0UsIHdhcm5pbmc9RkFMU0V9Cmdhc3RvcyA8LSByZWFkX2NzdihoZXJlKCJkYXRhL2RhZG9zQ0VBUC5jc3YiKSwKICAgICAgICAgICAgICAgICAgIHByb2dyZXNzID0gRkFMU0UpCgpnYXN0b3MgJT4lIG5hbWVzKCkKYGBgCgpWYW1vcyBhZGljaW9uYXIsIGFnb3JhLCBhIHJlZ2nDo28gZGUgY2FkYSBlc3RhZG8sIHBhcmEgbWVsaG9yYXIgYXMgZnV0dXJhcyB2aXN1YWxpemHDp8O1ZXMgZG9zIGRhZG9zLgoKYGBge3IsIG1lc3NhZ2U9RkFMU0UsIHdhcm5pbmc9RkFMU0V9CiMgYWRpY2lvbmEgdW1hIG5vdmEgdmFyacOhdmVsIGNvbnRlbmRvIGEgcmVnacOjbyDDoCBxdWFsIGNhZGEgZXN0YWRvIHBlcnRlbmNlCmdhc3RvcyA8LSBnYXN0b3MgJT4lIAogIG11dGF0ZShyZWdpYW8gPSBjYXNlX3doZW4oCiAgICBzZ1VGICVpbiUgYygiQUMiLCAiQVAiLCAiQU0iLCAiUEEiLCAiUk8iLCAiUlIiLCAiVE8iKSB+ICJOb3J0ZSIsCiAgICBzZ1VGICVpbiUgYygiQUwiLCAiQkEiLCAiQ0UiLCAiTUEiLCAiUEIiLCAiUEUiLCAiUEkiLCAiUk4iLCAiU0UiKSB+ICJOb3JkZXN0ZSIsCiAgICBzZ1VGICVpbiUgYygiREYiLCAiR08iLCAiTVQiLCAiTVMiKSB+ICJDZW50cm8tT2VzdGUiLAogICAgc2dVRiAlaW4lIGMoIkVTIiwgIk1HIiwgIlJKIiwgIlNQIikgfiAiU3VkZXN0ZSIsCiAgICBzZ1VGICVpbiUgYygiUFIiLCAiUlMiLCAiU0MiKSB+ICJTdWwiCiAgKSkKYGBgCgojIFBlcmd1bnRhcwoKIyMgUXVhaXMgZXN0YWRvcyBtYWlzIHV0aWxpemFtIGEgQ0VBUCBjb20gZGVzcGVzYXMgY29tIGNvbWJ1c3TDrXZlaXM/CgpgYGB7cn0KZ2FzdG9zICU+JSAKICBuYS5vbWl0KCkgJT4lICMgZWxpbWluYSBhcyBvYnNlcnZhw6fDtWVzIG9uZGUgYWxndW1hIGRhcyB2YXJpw6F2ZWlzIG5hw6NvIHBvc3N1aSBuZW5odW0gdmFsb3IKICBmaWx0ZXIodGlwb0Rlc3Blc2EgPT0gIkNPTUJVU1TDjVZFSVMgRSBMVUJSSUZJQ0FOVEVTLiIpICU+JSAjIG1hbnTDqW0gc29tZW50ZSBhcyBvYnNlcnZhw6fDtWVzIHJlZmVyZW50ZXMgw6AgZXN0ZSB0aXBvIGRlIGRlc3Blc2EKICBncm91cF9ieShzZ1VGLCByZWdpYW8pICU+JSAKICBzdW1tYXJpc2UodG90YWwgPSBzdW0odmFsb3JMw61xdWlkbykpICU+JSAjIGNhbGN1bGEgbyB0b3RhbCBnYXN0byBlbSBjYWRhIGVzdGFkbwogIHVuZ3JvdXAoKSAlPiUgCiAgYXJyYW5nZSgtdG90YWwpICU+JSAgIyBvcmRlbmEgYXMgb2JzZXJ2YcOnw7VlcyBkZSBmb3JtYSBkZXNjcmVzY2VudGUgZW0gcmVsYcOnw6NvIGFvIHRvdGFsIGdhc3RvCiAgZ2dwbG90KGFlcyh4ID0gcmVvcmRlcihzZ1VGLCB0b3RhbCksIAogICAgICAgICAgICAgeSA9IHRvdGFsLAogICAgICAgICAgICAgZmlsbCA9IHJlZ2lhbykpICsKICBnZW9tX2NvbCgpICsKICBndWlkZXMoZmlsbCA9IGd1aWRlX2xlZ2VuZCgiUmVnaWFvIikpICsKICBsYWJzKHkgPSAiVG90YWwgZ2FzdG8gY29tIGNvbWJ1c3TDrXZlaXMiLAogICAgICAgeCA9ICJFc3RhZG8iKSArCiAgdGhlbWUoYXhpcy50ZXh0LnggPSBlbGVtZW50X3RleHQoc2l6ZSA9IDcpKSArCiAgZmFjZXRfd3JhcCh+IHJlZ2lhbywKICAgICAgICAgICAgIHNjYWxlcyA9ICJmcmVlIikKYGBgCgpPIGVzdGFkbyBkZSBNaW5hcyBHZXJhaXMgw6kgbyBlc3RhZG8gb25kZSBvcyBkZXB1dGFkb3MgbWFpcyB1dGlsaXphbSBhIENFQVAgcGFyYSBkZXNwZXNhcyBjb20gY29tYnVzdMOtdmVpcy4gT2JzZXJ2YW5kbyBvIGdyw6FmaWNvLCBvcyBlc3RhZG9zIHF1ZSBtYWlzIGdhc3RhbSBzw6NvIGVzdGFkb3MgbXVpdG8gcG9wdWxvc29zLiBTYWJlbmRvIHF1ZSBlc3NlcyBlc3RhZG9zIHRhbWLDqW0gcG9zc3VlbSBtdWl0b3MgZGVwdXRhZG9zLCBleGlzdGUgYWxndW1hIGFzc29jaWHDp8OjbyBlbnRyZSBvIG7Dum1lcm8gZGUgZGVwdXRhZG9zIGUgYSB1dGlsaXphw6fDo28gZGEgQ0VBUD8gUG9kZW1vcyB2ZXJpZmljYXIgc2UgZXNzYSBhc3NvY2lhw6fDo28gZXhpc3RlIGF0cmF2w6lzIGRlIHVtIGdyw6FmaWNvIGRlIGRpc3BlcnPDo28uCgpgYGB7ciwgd2FybmluZz1GQUxTRSwgbWVzc2FnZT1GQUxTRX0KZGVwdXRhZG9zX2dhc3RvcyA8LSBnYXN0b3MgJT4lIAogIG5hLm9taXQoKSAlPiUgCiAgZ3JvdXBfYnkoc2dVRiwgcmVnaWFvKSAlPiUgCiAgbXV0YXRlKHRvdGFsID0gc3VtKHZhbG9yTMOtcXVpZG8pKSAlPiUgCiAgc2VsZWN0KHNnVUYsIHJlZ2lhbywgbm9tZVBhcmxhbWVudGFyLCBpZENhZGFzdHJvLCB0b3RhbCkgJT4lIAogIHVuaXF1ZSgpICU+JQogIG11dGF0ZShxdWFudGlkYWRlX2RlcHV0YWRvcyA9IG4oKSkgJT4lIAogIHVuaXF1ZSgpCgpkZXB1dGFkb3NfZ2FzdG9zICU+JSAKICBwbG90X2x5KHggPSB+cXVhbnRpZGFkZV9kZXB1dGFkb3MsCiAgICAgICAgICB5ID0gfnRvdGFsLAogICAgICAgICAgY29sb3IgPSB+cmVnaWFvLAogICAgICAgICAgdGV4dCA9IH5wYXN0ZSgiRXN0YWRvOiAiLCBzZ1VGLAogICAgICAgICAgICAgICAgICAgICAgICAgIjxicj5EZXB1dGFkb3M6ICIsIHF1YW50aWRhZGVfZGVwdXRhZG9zLAogICAgICAgICAgICAgICAgICAgICAgICAgIjxicj5SZWdpw6NvOiAiLCByZWdpYW8pLAogICAgICAgICAgdHlwZSA9ICdzY2F0dGVyJykKYGBgCgpQb2RlbW9zIG9ic2VydmFyLCBwZWxvIGdyw6FmaWNvLCBxdWUgYSBtZWRpZGEgcXVlIGEgcXVhbnRpZGFkZSBkZSBkZXB1dGFkb3MgYXVtZW50YSwgYSBxdWFudGlkYWRlIHV0aWxpemFkYSBkYSBDRUFQIHRhbWLDqW0gYXVtZW50YS4gTG9nbywgcG9kZW1vcyBkaXplciBxdWUgaMOhIGFzc29jaWHDp8OjbyBlbnRyZSBlc3NhcyB2YXJpw6F2ZWlzLiBVbWEgZm9ybWEgZGUgbWVkaXIgZXNzYSBhc3NvY2lhw6dhbyDDqSB1dGlsaXphbmRvIHVtYSBtZWRpZGEgY2hhbWFkYSBkZSBjb3JyZWxhw6fDo28gbGluZWFyLiBBIGNvcnJlbGHDp8OjbyBsaW5lYXIgbWVkZSBhIHJlbGHDp8OjbyBsaW5lYXIgZW50cmUgZWxhcyBlIGluZGljYSBhIGZvcsOnYSBlIGEgZGlyZcOnw6NvIGRlc3NlIHJlbGFjaW9uYW1lbnRvLiBFc3NhIG1lZGlkYSDDqSB1bSB2YWxvciBlbnRyZSAtMSBlIDEgZSDDqSBjbGFzc2lmaWNhZGEgZGEgc2VndWludGUgZm9ybWE6CgoqIEEgYXNzb2NpYcOnw6NvIMOpIGRpdGEgZnJhY2Egc2UgbyBtw7NkdWxvIGRlIHNldSB2YWxvciBhcHJveGltYS1zZSBkZSAwLCBlIGZvcnRlIHF1YW5kbyBhcHJveGltYS1zZSBkZSAxLgoqIFNlIG8gdmFsb3IgZGEgY29ycmVsYcOnw6NvIMOpIG5lZ2F0aXZvLCBvcyB2YWxvcmVzIGRlIHVtYSB2YXJpw6F2ZWwgZGltaW51ZW0gcXVhbmRvIG9zIGRhIG91dHJhIGF1bWVudGFtLCBlLCBzZSBmb3IgcG9zaXRpdm8sIGF1bWVudGFtIHF1YW5kbyBvcyB2YWxvcmVzIGRhIG91dHJhIHZhcmnDoXZlbCB0YW1iw6ltIGF1bWVudGFtLgoKYGBge3J9CmNvcih4ID0gZGVwdXRhZG9zX2dhc3RvcyRxdWFudGlkYWRlX2RlcHV0YWRvcywKICAgIHkgPSBkZXB1dGFkb3NfZ2FzdG9zJHRvdGFsLAogICAgbWV0aG9kID0gInBlYXJzb24iKQpgYGAKCkNvbW8gbyB2YWxvciBkZXNzYSBjb3JyZWxhw6fDo28gw6kgMC45MCwgZXNzYSBhc3NvY2lhw6fDo28gw6kgZm9ydGUgZSBwb3NpdGl2YS4gRW50w6NvLCBxdWFudG8gbWFpb3IgYSBxdWFudGlkYWRlIGRlIGRlcHV0YWRvcyBlbSB1bSBlc3RhZG8sIG1haW9yIGEgdXRpbGl6YcOnw6NvIGRhIENFQVAuCgojIyBRdWFpcyBjYW5kaWRhdG9zIHPDo28gcmVzcG9uc8OhdmVpcyBwZWxhIG1haW9yIHBhcnRlIGRvcyBnYXN0b3MgZGUgc2V1IGVzdGFkbz8KCmBgYHtyfQpnYXN0b3MgJT4lIAogIG5hLm9taXQoKSAlPiUgCiAgZ3JvdXBfYnkobm9tZVBhcmxhbWVudGFyLCBzZ1VGKSAlPiUgCiAgbXV0YXRlKGRlcHV0YWRvID0gcGFzdGUobm9tZVBhcmxhbWVudGFyLCAiICgiLCBzZ1VGLCAiKSIsIHNlcCA9ICIiKSwgCiAgICAgICAgIHRvdGFsX2NhbmRpZGF0byA9IHN1bSh2YWxvckzDrXF1aWRvKSkgJT4lICNnYXN0b3MgZGUgdW0gZGVwdXRhZG8KICB1bmdyb3VwKCkgJT4lIAogIGdyb3VwX2J5KHNnVUYpICU+JSAKICBtdXRhdGUodG90YWxfZXN0YWRvID0gc3VtKHZhbG9yTMOtcXVpZG8pLCAjIHRvdGFsIHV0aWxpemFkbyBkbyBDRUFQIHBvciBlc3RkbwogICAgICAgICBwb3JjZW50YWdlbSA9ICh0b3RhbF9jYW5kaWRhdG8gLyB0b3RhbF9lc3RhZG8pKjEwMCkgJT4lICMgcG9yY2VudGFnZW0gZG8gZ2FzdG8gZGUgdW0gZGVwdXRhZG8gZG8gdG90YWwgZ2FzdG8gcG9yIGVzdGFkbwogIHNlbGVjdChkZXB1dGFkbywgCiAgICAgICAgIHNnUGFydGlkbywgCiAgICAgICAgIHRvdGFsX2NhbmRpZGF0bywgCiAgICAgICAgIHNnVUYsIAogICAgICAgICByZWdpYW8sIAogICAgICAgICB0b3RhbF9lc3RhZG8sIAogICAgICAgICBwb3JjZW50YWdlbSkgJT4lIAogIHVuaXF1ZSgpICU+JSAKICBhcnJhbmdlKC1wb3JjZW50YWdlbSkgJT4lICMgb3JkZW5hIGFzIG9ic2VydmHDp8O1ZXMgZGUgZm9ybWEgZGVzY3Jlc2NlbnRlIHBlbGEgcHJvcG9yw6fDo28gZGUgZ2FzdG9zIGRlIHVtIGRlcHV0YWRvCiAgc2xpY2UoMSkgJT4lICMgbWFudMOpbSBzb21lbnRlIG8gZGVwdXRhZG8gcXVlIG1haXMgZ2FzdGEgZGUgY2FkYSBlc3RhZG8KICBnZ3Bsb3QoYWVzKHggPSByZW9yZGVyKGRlcHV0YWRvLCBwb3JjZW50YWdlbSksCiAgICAgICAgICAgICB5ID0gcG9yY2VudGFnZW0sCiAgICAgICAgICAgICBjb2xvdXIgPSByZWdpYW8pKSArCiAgZ2VvbV9wb2ludChzaXplID0gNiwKICAgICAgICAgICAgIGFscGhhID0gLjcpICsKICBnZW9tX3NlZ21lbnQoYWVzKHggPSBkZXB1dGFkbywKICAgICAgICAgICAgICAgICAgIHhlbmQgPSBkZXB1dGFkbywKICAgICAgICAgICAgICAgICAgIHkgPSAwLAogICAgICAgICAgICAgICAgICAgeWVuZCA9IHBvcmNlbnRhZ2VtKSkgKwogIGdlb21fdGV4dChhZXMobGFiZWwgPSBwYXN0ZShyb3VuZChwb3JjZW50YWdlbSwxKSwgIiUiLCBzZXA9IiIpKSwKICAgICAgICAgICAgY29sb3IgPSAiYmxhY2siLAogICAgICAgICAgICBzaXplID0gMywKICAgICAgICAgICAgcG9zaXRpb24gPSBwb3NpdGlvbl9zdGFjaygpKSArCiAgZ3VpZGVzKGNvbG9yID0gZ3VpZGVfbGVnZW5kKCJSZWdpYW8iKSkgKwogIGxhYnMoeSA9ICJQb3JjZW50YWdlbSBnYXN0YSBkbyB0b3RhbCIsCiAgICAgICB4ID0gIkRlcHV0YWRvIikgKwogIGNvb3JkX2ZsaXAoKQpgYGAKCk8gZGVwdXRhZG8gTWFyY29zIFJvdHRhIGRvIGVzdGFkbyBkbyBBbWF6b25hcywgcXVlIHBvc3N1aSAxMSBkZXB1dGFkb3MsIGdhc3RhIHNvemluaG8gcXVhc2UgMzAlIGRlIHRvZG8gbyB0b3RhbCB1dGlsaXphZG8gZGEgQ0VBUCBlbSBzZXUgZXN0YWRvLiDDiSBpbXBvcnRhbnRlIG9ic2VydmFyIGFxdWkgcXVlIG9zIGVzdGFkb3MgZG9zIGRlcHV0YWRvcyBjb20gbWFpb3JlcyBwb3JjZW50YWdlbnMgZGUgZ2FzdG9zIHBvc3N1ZW0gbWVub3MgZGVwdXRhZG9zIGRvcyBxdWUgb3MgZGUgcG9yY2VudGFnZW0gYmFpeGEuIA==